﻿Imports MeoTom.Core

Partial Public Class Upload
    Inherits UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim strPath As String = ""

        Select Case Request.QueryString("sPath")
            Case "Weather"
                strPath = Configs.FolderSaveData & "Weather\"
                Exit Select
            Case Else
                strPath = ""
                Exit Select
        End Select

        For Each file As HttpPostedFile In From key As String In Request.Files.Keys Select Request.Files.[Get](key)
            file.SaveAs(strPath & file.FileName)
        Next
    End Sub

End Class